call application.gui.StatusBarText("route by any angle")

'msgbox "unsupport,please use {F3} instead!"
dim wsh
set wsh=createobject("wscript.shell")
wsh.sendkeys "{F3}"
'wsh.sendkeys "{F3}"
set wsh = nothing
